********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Maksimum_3;
Uses crt;
Var
 A : integer;
 B : integer;
 C : integer;
Begin
Clrscr;
Writeln ('mencari bilangan terbesar');
Write ('nilai A:'); Readln(A);
Write ('nilai B:'); Readln(B);
Write ('nilai C:'); Readln(C);
IF (A>B) and (A>C) THEN
Writeln ('bilangan terbesar adalah:',A)
else
IF (B>A) and (B>C) THEN
Writeln ('bilangan terbesar adalah:',B)
else
Writeln ('bilangan terbesar adalah:',C);

Readln;
end.